main
sub main()
	on error resume next
	dim args:args=inputbox("new width=?",args,"10")
	dim ocmd:ocmd = "cw " & args
	application.gui.processkeyin(ocmd)
end sub